﻿Public Class Cliente

    Private fCodigo As Integer
    Private fNome As String
    Private fInativo As Boolean
    Private fValidade As DateTime

    Public Sub New()

    End Sub

    Public Sub New(ByVal parIdCliente As Integer, ByVal parNomeCliente As String)
        Me.fCodigo = parIdCliente
        Me.fNome = parNomeCliente
    End Sub
    Public Property Codigo As Integer
        Get
            Return fCodigo
        End Get
        Set(ByVal value As Integer)
            fCodigo = value
        End Set
    End Property
    Public Property Nome As String
        Get
            Return fNome
        End Get
        Set(ByVal value As String)
            fNome = value
        End Set
    End Property

    Public Property Inativo As Boolean
        Get
            Return fInativo
        End Get
        Set(ByVal value As Boolean)
            fInativo = value
        End Set
    End Property

    Public Property Validade As DateTime
        Get
            Return fValidade
        End Get
        Set(ByVal value As DateTime)
            fValidade = value
        End Set
    End Property

End Class
